home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 19 / MacAddict_019_1998_03.iso / Media / STORE.dxr / Internal_16_close box 1.ls < prev    next >
Encoding:
Text File  |  1997-12-17  |  1.3 KB  |  63 lines
  1. on mouseEnter me
  2.   cursor(280)
  3. end
  4.  
  5. on mouseLeave me
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseDown me
  10.   global gselectedBoxes
  11.   set the itemDelimiter to "."
  12.   set i to item 1 of field "whichBox"
  13.   case i of
  14.     "box1":
  15.       setAt(gselectedBoxes, 1, 1)
  16.     "box2":
  17.       setAt(gselectedBoxes, 2, 1)
  18.     "box3":
  19.       setAt(gselectedBoxes, 3, 1)
  20.     "box4":
  21.       setAt(gselectedBoxes, 4, 1)
  22.     "box5":
  23.       setAt(gselectedBoxes, 5, 1)
  24.     "box6":
  25.       setAt(gselectedBoxes, 6, 1)
  26.     "box7":
  27.       setAt(gselectedBoxes, 7, 1)
  28.     "box8":
  29.       setAt(gselectedBoxes, 8, 1)
  30.     "box9":
  31.       setAt(gselectedBoxes, 9, 1)
  32.     "box10":
  33.       setAt(gselectedBoxes, 10, 1)
  34.     "box11":
  35.       setAt(gselectedBoxes, 11, 1)
  36.     "box12":
  37.       setAt(gselectedBoxes, 12, 1)
  38.     "box13":
  39.       setAt(gselectedBoxes, 13, 1)
  40.     "box14":
  41.       setAt(gselectedBoxes, 14, 1)
  42.     "box15":
  43.       setAt(gselectedBoxes, 15, 1)
  44.     "box16":
  45.       setAt(gselectedBoxes, 16, 1)
  46.     "box17":
  47.       setAt(gselectedBoxes, 17, 1)
  48.     "box18":
  49.       setAt(gselectedBoxes, 18, 1)
  50.     "box19":
  51.       setAt(gselectedBoxes, 19, 1)
  52.     "box20":
  53.       setAt(gselectedBoxes, 20, 1)
  54.   end case
  55.   set the itemDelimiter to TAB
  56.   puppetSprite(22, 0)
  57. end
  58.  
  59. on mouseUp me
  60.   go("01a")
  61.   set the scrollTop of member "description" to 1
  62. end
  63.